Revista CD Expert 37/CD Expert nº 37.iso/LastCall/lastcall.exe/stuff/lastcall.dxr/00023_Bar background.ls

Text File | 2000-03-27 | 534 b | 33 lines

on mouseDown
  if draggingAnything() then
    replaceDraggingAnything()
  else
    if modifierDown() then
      getAnXbottle()
    end if
  end if
end

on rightMouseDown
  if the stage = the activeWindow then
    if draggingAnything() then
      replaceDraggingAnything()
    else
      getAnXbottle()
    end if
  end if
end

on mouseEnter me
  if not draggingAnything() then
    showDrinkContents(#thebar)
    refreshHelpWindow(#thebar)
  end if
end

on mouseLeave me
  if not draggingAnything() then
    hideToolTip()
  end if
end